﻿
Public Class multilength
    Public value As Int64
    Public relative As Boolean

    Public Overrides Function ToString() As String
        If relative Then
            Return value.ToString + Global.character.asterisk
        Else
            Return value.ToString
        End If
    End Function

    Public Shared Widening Operator CType(ByVal this As Int64) As multilength
        Dim rtn As multilength = Nothing
        rtn = New multilength
        rtn.value = this

        Return rtn
    End Operator
End Class
